home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / turkey.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-09-15  |  1.0 KB  |  36 lines
  1. 10  KEY OFF
  2. 20  CLS
  3. 30  READ N,C
  4. 40  IF N=999 THEN 130
  5. 50  FOR I=1 TO N
  6. 60  READ Y,B,E
  7. 70  FOR X=B TO E
  8. 80  LOCATE Y,X
  9. 90  PRINT CHR$(C)
  10. 100  NEXT X
  11. 110  NEXT I
  12. 120  GOTO 30
  13. 130  READ Y,X,C
  14. 140  LOCATE Y,X
  15. 150  PRINT CHR$(C);
  16. 160  IF X=45 THEN 160
  17. 170  GOTO 130
  18. 1000  DATA 19,40,1,33,38,1,42,47,2,30,50,3,29
  19. 1010  DATA 51,4,28,52,5,25,55,6,24,56,7,23,57
  20. 1020  DATA 8,21,59,9,20,60,10,19,61,11,18,62
  21. 1030  DATA 12,18,62,13,17,63,14,16,64,15,16,64
  22. 1040  DATA 16,17,63,17,18,62,18,21,59,14,117,3
  23. 1050  DATA 35,45,4,34,46,5,32,48,6,32,48,7,29
  24. 1060  DATA 51,8,28,52,9,26,54,10,25,55,11,24
  25. 1070  DATA 56,12,23,57,13,23,57,14,23,57,15,23
  26. 1080  DATA 57,16,24,56,22,73,4,38,42,5,37,43,6
  27. 1090  DATA 37,43,7,37,43,8,36,44,9,34,46,10,32
  28. 1100  DATA 48,11,31,49,12,30,50,13,28,52,14,27
  29. 1110  DATA 53,15,27,53,16,26,54,17,25,55,18,25
  30. 1120  DATA 55,19,25,29,19,32,48,19,51,55,20,25
  31. 1130  DATA 28,20,33,47,20,52,55,21,34,46,999
  32. 1140  DATA 999,5,39,111,5,40,0,5,41,111,6,40
  33. 1150  DATA 94,7,40,94,8,40,94,9,40,94,22,36,88
  34. 1160  DATA 22,44,88,23,36,88,23,44,88,24,35,88
  35. 1170  DATA 24,37,88,24,43,88,24,45,88
  36.